home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / solution8.9 < prev    next >
Text File  |  2007-02-28  |  469b  |  20 lines
  1. 0010 DIM PRICE(10), TALLY(10)
  2. 0020 FOR K:=1 TO 10 DO READ PRICE(K)
  3. 0030 FOR CARD:=1 TO 5 DO
  4. 0040 COST:=3
  5. 0050 READ ITEM
  6. 0060 WHILE ITEM>0 DO
  7. 0070 COST:=COST+PRICE(ITEM)
  8. 0080 TALLY(ITEM):=TALLY(ITEM)+1
  9. 0090 READ ITEM
  10. 0100 ENDWHILE 
  11. 0110 PRINT "TOTAL FOR CARD";CARD;"IS";COST
  12. 0120 ENDFOR CARD
  13. 0130 FOR ITEM:=1 TO 10 DO PRINT ITEM;TALLY(ITEM)
  14. 0140 DATA 2,4,2,1.5,2.5,3,2,1.5,6,8
  15. 0150 DATA 3,5,7,-1
  16. 0160 DATA 2,5,6,-1
  17. 0170 DATA 5,7,8,9,-1
  18. 0180 DATA -1
  19. 0190 DATA 1,2,5,9,-1
  20.